home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HamCall (October 1991)
/
HamCall (Whitehall Publishing)(1991).bin
/
bcast
/
bcstcble
/
tvchan.bas
< prev
next >
Wrap
BASIC Source File
|
1990-10-14
|
2KB
|
54 lines
10 PRINT"TV CHANNEL FREQUENCY DIRECTORY"
20 PRINT" ****************************"
30 PRINT"ENTER TV CHANNEL: ";
35 INPUT A$
40 A=ASC(A$): IF A > 64 THEN 300
50 C=VAL(A$)
100 IF C < 2 THEN 600
110 IF C < 5 THEN 200
120 IF C < 7 THEN 190
130 IF C < 14 THEN 180
140 PRINT"UHF OR CABLE ";
145 INPUT B$
150 IF LEFT$(B$,1)="C" THEN 320
160 IF C > 83 THEN 600
170 BC=14:BF=470:GOTO 400
180 BC=7:BF=174:GOTO 400
190 BC=5:BF=76:GOTO 400
200 BC=2:BF=54:GOTO 400
300 IF A > 90 THEN 600
310 C=A-51:PRINT A$;" =CABLE CH# ";C
320 IF C > 40 THEN 600
330 IF C < 23 THEN PRINT"MID BAND CHANNEL":GOTO 360
340 PRINT"SUPER BAND CHANNEL"
350 BC=23:BF=216:GOTO 400
360 BC=14:BF=120
400 LB=BF+(C-BC)*6
410 UB=LB+6
420 FV=LB+1.25:FC=FV+3.58:FA=FV+4.5
430 FL=LB+47
440 IL=UB+41*2:IU=LB+47*2
450 PRINT"FREQUENCY RANGE=";LB;"TO";UB;" MHZ"
460 PRINT"PIX CARRIER=";FV;" MHZ"
470 PRINT"COLOR CARRIER=";FC;" MHZ"
480 PRINT"SOUND CARRIER=";FA;" MHZ"
490 PRINT"NOTE: THE FOLLOWING"
500 PRINT"ASSUMES A RECEIVER"
510 PRINT"WITH A 41-47 MHZ I.F."
515 PRINT"(41.25 MHZ SOUND, 45.75 MHZ PIX)"
520 PRINT"LOCAL OSCILLATOR=";FL;" MHZ"
540 PRINT"IMAGE RANGE=";IL;" TO ";IU;" MHZ"
550 PRINT"MORE?";
560 INPUT C$:IF LEFT$(C$,1)="Y" THEN GOTO 20
580 END
600 PRINT"NON-EXSISTENT CHANNEL":GOTO 20
800 REM FROM RADIO ELECTRONICS
810 REM JAN 1987
820 REM BY WA9ZPM
900 REM FOR CABLE AND/OR UHF TOP OF SET CONVERT:
910 REM CHANGE AS FOLLOWS AND DELETE LINE 515
920 REM 430 FL=ABS(LB-(OUTPUT CHANNEL LOWER RANGE))
930 REM 440 IF=ABS(LB-(OUTPUT CHANNEL LOWER RANGE))
940 REM 500 PRINT"IS FOR A CONVERTER"
950 REM 510 PRINT"WITH AN OUTPUT ON CHANNEL (NUMBER
uuuuuuuuuuu